home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak 2 - Disc 2 / Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso / Chat---IRC / TURBOIRC.ZIP / data1.cab / TurboIRC_Scripts / ATEMPBAN.txt < prev    next >
Text File  |  1999-05-05  |  1KB  |  55 lines
  1. // TempBan TurboIRC Script
  2. // Copyright ⌐ Chourdakis Michael , 1998
  3.  
  4. // Syntax : /tempban <channel> <nick|mask> [kickreason]
  5. // This example
  6. // Bans the given mask based on your
  7. // preferences from a channel
  8. // And removes the ban after 1 minute
  9. // If you supply a nick instead of mask
  10. // TurboIRC will get the mask from the internal structures
  11. // If the mask cannot be found
  12. // It will ban just the nick
  13.  
  14. // Load it : /_alias /TEMPBAN 0 0 ?.\demos\tempban.txt
  15.  
  16. if (strncmp("$2","*",1) == 0)
  17.  goto BanRelease
  18. endif
  19.  
  20. string ID = ""
  21. string Dom = ""
  22. string Msk = ""
  23.  
  24. if (FindStringPos("$2","!")==-1)
  25.  // this is a user
  26.  ID = GetUserIdent("$2")
  27.  Dom = GetUserDomain("$2")
  28.  Msk = sprintf("%s!%s@%s","$2",ID,Dom)
  29. else
  30.  ID = "--found--"
  31.  Msk = "$2"
  32. endif
  33.  
  34. if (ID=="")
  35.  /mode $1 +b $2!*@*
  36.  /kick $1 $2 $3*
  37.  /firescript ATEMPBAN 60000 $0 $1 *$2 $3
  38. else
  39.  /mode $1 +b %DefaultBanFromMask("%Msk%")%
  40.  /kick $1 %NickFromMask("%Msk%")% $3*
  41.  /firescript ATEMPBAN 20000 $0 $1 *%Msk% $3
  42. endif
  43.  
  44. return
  45.  
  46. :BanRelease
  47.  
  48. // release the ban
  49. string SB = "$2" + 1
  50. if (FindStringPos("$2","!")==-1)
  51.  /mode $1 -b %SB%
  52. else
  53.  /mode $1 -b %DefaultBanFromMask("%SB%")%
  54. endif
  55.